home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / S-Sh / ScrollBar.cpt / ScrollBar Stack / card_4363.txt < prev    next >
Text File  |  1990-04-17  |  5KB  |  189 lines
  1. -- card: 4363 from stack: in
  2. -- bmap block id: 4811
  3. -- flags: 0000
  4. -- background id: 2067
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 01
  10. -- high flags: 0000
  11. -- rect: left=0 top=3 right=19 bottom=512
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 33
  16. -- text size: 10
  17. -- style flags: 16640
  18. -- line height: 13
  19. -- part name: 
  20.  
  21.  
  22. -- part 3 (field)
  23. -- low flags: 01
  24. -- high flags: 0000
  25. -- rect: left=34 top=146 right=267 bottom=251
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 33
  30. -- text size: 10
  31. -- style flags: 0
  32. -- line height: 13
  33. -- part name: 
  34.  
  35.  
  36. -- part 4 (field)
  37. -- low flags: 01
  38. -- high flags: 0000
  39. -- rect: left=33 top=285 right=328 bottom=251
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 0
  43. -- font id: 33
  44. -- text size: 10
  45. -- style flags: 0
  46. -- line height: 13
  47. -- part name: 
  48.  
  49.  
  50. -- part 5 (field)
  51. -- low flags: 01
  52. -- high flags: 0000
  53. -- rect: left=285 top=45 right=115 bottom=504
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 0
  57. -- font id: 33
  58. -- text size: 10
  59. -- style flags: 0
  60. -- line height: 13
  61. -- part name: 
  62.  
  63.  
  64. -- part 6 (field)
  65. -- low flags: 01
  66. -- high flags: 0000
  67. -- rect: left=286 top=132 right=162 bottom=504
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 0
  71. -- font id: 33
  72. -- text size: 10
  73. -- style flags: 0
  74. -- line height: 13
  75. -- part name: 
  76.  
  77.  
  78. -- part 7 (field)
  79. -- low flags: 01
  80. -- high flags: 0000
  81. -- rect: left=286 top=180 right=289 bottom=504
  82. -- title width / last selected line: 0
  83. -- icon id / first selected line: 0 / 0
  84. -- text alignment: 0
  85. -- font id: 33
  86. -- text size: 10
  87. -- style flags: 0
  88. -- line height: 13
  89. -- part name: 
  90.  
  91.  
  92. -- part 16 (field)
  93. -- low flags: 01
  94. -- high flags: 0000
  95. -- rect: left=287 top=310 right=327 bottom=447
  96. -- title width / last selected line: 0
  97. -- icon id / first selected line: 0 / 0
  98. -- text alignment: 0
  99. -- font id: 33
  100. -- text size: 10
  101. -- style flags: 0
  102. -- line height: 13
  103. -- part name: 
  104.  
  105.  
  106. -- part 21 (field)
  107. -- low flags: 01
  108. -- high flags: 0000
  109. -- rect: left=35 top=45 right=115 bottom=252
  110. -- title width / last selected line: 0
  111. -- icon id / first selected line: 0 / 0
  112. -- text alignment: 0
  113. -- font id: 33
  114. -- text size: 10
  115. -- style flags: 0
  116. -- line height: 13
  117. -- part name: 
  118.  
  119.  
  120. -- part 22 (button)
  121. -- low flags: 00
  122. -- high flags: 0000
  123. -- rect: left=132 top=284 right=301 bottom=164
  124. -- title width / last selected line: 0
  125. -- icon id / first selected line: 0 / 0
  126. -- text alignment: 1
  127. -- font id: 0
  128. -- text size: 12
  129. -- style flags: 0
  130. -- line height: 16
  131. -- part name: 
  132. ----- HyperTalk script -----
  133. on mouseUp
  134.   popupField "cd fld" && quote & "AboutPaint" & quote
  135. end mouseUp
  136.  
  137.  
  138.  
  139. -- part 24 (field)
  140. -- low flags: 81
  141. -- high flags: 0001
  142. -- rect: left=167 top=185 right=332 bottom=410
  143. -- title width / last selected line: 0
  144. -- icon id / first selected line: 0 / 0
  145. -- text alignment: 1
  146. -- font id: 33
  147. -- text size: 10
  148. -- style flags: 0
  149. -- line height: 13
  150. -- part name: AboutPaint
  151.  
  152.  
  153. -- part contents for card part 1
  154. ----- text -----
  155. put ScrollBar(mouseDown, doPaint, doCallBack, min, max, current[, page]) into final
  156.  
  157. -- part contents for card part 3
  158. ----- text -----
  159. If true ScrollBar() will asume a mouse down event has occurred, deal with the event and exit. If false ScrollBar() will remain active as long as the mouse is within the scroll bar region and handle all mouse events during that time. Generally use true if ScrollBar() is called from a mouseDown handler, false if called from a mouseEnter handler. 
  160.  
  161. -- part contents for card part 4
  162. ----- text -----
  163. If true ScrollBar() will paint  a picture of the scroll bar onto the card or background before exiting.
  164.  
  165. -- part contents for card part 5
  166. ----- text -----
  167. If true ScrollBar() will send a trackScroll message to the object which called it while tracking the control. The trackScroll handler can obtain the thumb value from the global ScrollValue.
  168.  
  169. -- part contents for card part 6
  170. ----- text -----
  171. The minimum, maximum and current thumb value for the scroll bar.
  172.  
  173. -- part contents for card part 7
  174. ----- text -----
  175. The amount to adjust the thumb by for mouse clicks in the page up/down regions. If not given a value of 2 is used.
  176. If a negative value is used and doPaint is true then ScrollBar() will paint onto the card or background even if the thumb value has not changed; this is used to force a paint when setting up a scroll bar.
  177.  
  178. -- part contents for card part 16
  179. ----- text -----
  180. The final value of the thumb.
  181.  
  182. -- part contents for card part 21
  183. ----- text -----
  184. ScrollBar() provides standard scroll bar controls as HyperCard objects. ScrollBar() must be invoked from either a button or field script and will draw the scroll bar to cover the rect of its parent object.
  185.  
  186. -- part contents for card part 24
  187. ----- text -----
  188. The userLevel does NOT need to be set to painting when doPaint is true ‚Äì ScrollBar() will adjust and reset it if need be. ScrollBar() paints onto the same layer, card or background,  as its parent object.The painting is what causes the delay when exiting from ScrollBar(). Warning: You may get out of memory errors when ScrollBar attempts to paint (at least I sometimes do on a 1M Mac+‚Ķ), in which case the scroll bar picture will be left on the clipboard.
  189. (Click to continue)